home *** CD-ROM | disk | FTP | other *** search
/ Packard Bell - Internet on a CD / internet on a cd.cdr / Internet / sites / HTML_1 / bounce.pl < prev    next >
Encoding:
Perl Script  |  1998-07-16  |  379 b   |  17 lines
  1. #!/bin/perl
  2.  
  3. require "cgi-lib.pl";
  4.  
  5. if (&ReadParse(*input)) {
  6.      print &PrintHeader;
  7.      print "<h1>The responce from your bounce request</h1><p>";
  8.      print $input{'inp'};
  9. }
  10. else {
  11.     print &PrintHeader;
  12.     print "<h1>Type your bounce requeset.</h1><p>";
  13.     print '<form method="post" action="bounce.pl">';
  14.     print '<input name="inp"><input type="submit"></form>';
  15.  }
  16.  
  17.